[gelöst] Button als on / off Schalter verwenden

[lycaner]

Hallo Libes Forum, Liebe Spezialisten,

ich würde gerne mit einem Button eine art on / off Funktion realisieren.
Resp. wenn gedrück und down für mir in Memo Feld diese Zeile ein
wen gedrückt aber oben ist füge diese Zeile ins Memo Feld ein.

Ich bin seit Stunden am suchen mit der Suche finde aber das passende leider nicht,
so habe ich mich entschlossen hier ein Posting zu eröffnen.

Ich hoffe ich bin halbwegs verständlich wie ich mir das vorstelle.

Beste Grüsse

Chris

[Mathias]

Resp. wenn gedrück und down für mir in Memo Feld diese Zeile ein
wen gedrückt aber oben ist füge diese Zeile ins Memo Feld ein.

Ist ein bisschen komisches deutsch, aber ich denke du suchst dies hier:

Nimm doch anstelle des Buttons eine ToggleBox.

Code: Alles auswählen

procedure TForm1.ToggleBox1Change(Sender: TObject);
begin
  if ToggleBox1.Checked then begin
    Color := clYellow;
  end else begin
    Color := clBlack;
  end;
end;  

[af0815]

Ist das nicht die TToogleBox ?

[Mathias]

Ist das nicht die TToogleBox ?

So kann man sie auch nennen.

[lycaner]

Hallo alle zusammen, Hallo Matthias,

Bitte Entschuldige mich mit meinem Schrift Deutsch, zum einen bin ich Schweizer,
soll jetzt nicht als generelle Entschuldigung gelten für schlechtes Deutsch, zum
anderen bin ich Legasteniker. Ichstehe etwas schwer auch dem Schlauch wenn es
um Gramatik geht und wie ich es mir vorstelle zu gehen und das dann in Worte zu
fassen.

So, end off selbst Bemitleidung.


Danke Dir für die Hilfe, geht das auch mit einem SpeedButton oder BitBtn ?
Ich habe gestern den ganzen Nachmittag danach gesucht auch in Lazarus.
die ToggleBox geht, ich würde aber gerne noch ein Icon einfügen und nicht
nur "Text".

Resp. wenn gedrück und down für mir in Memo Feld diese Zeile ein
wen gedrückt aber oben ist füge diese Zeile ins Memo Feld ein.

Ist ein bisschen komisches deutsch, aber ich denke du suchst dies hier:

Nimm doch anstelle des Buttons eine ToggleBox.

Code: Alles auswählen

procedure TForm1.ToggleBox1Change(Sender: TObject);
begin
  if ToggleBox1.Checked then begin
    Color := clYellow;
  end else begin
    Color := clBlack;
  end;
end;  

Beste Grüsse aus der Schweiz
und sorry nochmals für mein Deutsch, ich versuche meine Gedanken besser in Worte zu fassen.


Chris

[lycaner]

Hallo nochmals,

ich habe aus einem Amerikanischen Forum das gefunden:

you can use TECSpeedBtn from my EC-Controls package

Those images are taken from associated imagelist, images should be *.png rather than *.bmp.

Try Eye-Candy Controls: https://sourceforge.net/projects/eccontrols/files/

Was haltet Ihr davon ?

Beste Grüsse

Chris

[Michl]

Was hast du denn gegen die, wie oben vorgeschlagen, TToggleBox (siehe http://wiki.freepascal.org/TToggleBox/de)?!

PS: Auch z.B. ein TSpeedButton kann man so verwenden (Eigenschaft GroupIndex größer 0 stellen + evtl. AllowAllUp einschalten).

[wp_xyz]

Es geht sicher mit dem ECSpeedButton, aber eigentlich kann auch der eingebaute TSpeedButton alles, was du willst, wenn du die Eigenschaften richtig wählst:
- AllowAllUp = true
- GroupIndex irgendein Wert ungleich 0 (Alle Buttons mit dem gleichen Groupindex wirken zusammen wie eine Gruppe von RadioButtons).

Auch der TToolButton (den es aber nicht einzeln, sondern nur in einer TToolbar gibt) kann das:
- Style = tsbCheck

Achtung: Beide Buttons können nicht den Fokus erhalten, also ohne weiteres nicht mit der Tastatur bedient werden.

TBitBtn geht nicht.

[SoE]

Hi,
warum benutzt du nicht einfach zwei TImage-Komponenten, dann kannst du dir mit 'nem PNG sehr sehr sehr kleine Bilder bauen und dein Button oder deine CheckBox oder was auch immer du brauchst sieht exakt so aus wie es dir gefällt.
Und mit Show / Hide oder Visible kann man sehr einfach darauf zugreifen. Dann kannst du das Ganze so "skinnen" wie du es magst und erstellte Bilder immer wieder verwenden.

Falls das zu viel kreative "Arbeit" beinhaltet würde ich ebenfalls zur ToggleBox greifen, die funktioniert bis jetzt sehr gut...

[lycaner]

Hallo,

vielen Dank für die vielen Informationen, dann werde ich mich an das gestalten heran wagen.
Ich nehme gerne Eure Vorschläge auf und versuche mal mein Glück.

Gruss

Chris

[lycaner]

Hallo,

vielen Dank für die vielen Informationen, dann werde ich mich an das gestalten heran wagen.
Ich nehme gerne Eure Vorschläge auf und versuche mal mein Glück.

Gruss

Chris

[Mathias]

Evtl kann man ein Panel für diesen Zweck missbrauchen.

Code: Alles auswählen

procedure TForm1.Panel1Click(Sender: TObject);
begin
  if Panel1.BevelOuter = bvRaised then begin
    Panel1.BevelOuter := bvLowered;
  end else begin
    Panel1.BevelOuter := bvRaised;
  end;
end;
 
procedure TForm1.Panel1Paint(Sender: TObject);
begin
  Panel1.Canvas.Rectangle(5, 5, Panel1.Width - 5, Panel1.Height - 5); // Hier kannst du dein Icon mit Draw zeichnen.
end; 

Bitte Entschuldige mich mit meinem Schrift Deutsch, zum einen bin ich Schweizer,

Diese Problem habe ich leider auch, wen man Schwyzerdütsch spricht, ist Schrift-Deutsch fast wie eine Fremdsprache.