![]() |
CheckBox anklicken
Hallo
ich habe mehrere Checkboxen, jetzt soll immer nur eine Aktiv sein. Das habe ich mit folgendem Code gelöst.
Code:
Mein Problem ist jetzt. Wenn eine box aktiv ist und ich eine andere auswählen will.
procedure TForm6.NummerClick(Sender: TObject);
begin // Nummer.Checked := True; Geber.Checked := False; DeviceName.Checked := False; Aufloesung.Checked := False; Seriennummer.Checked := False; Datum.Checked := False; Arbeiter.Checked := False; Abteilung.Checked := False; if Nummer.Checked = true then begin unit1.Form1.qrSuchen.Close; unit1.Form1.qrSuchen.SQL.Delete (unit1.Form1.qrSuchen.SQL.Count-1); unit1.Form1.qrSuchen.SQL.Add('ORDER BY Nummer ASC'); unit1.Form1.qrSuchen.Open; end; end; Muss ich zweimal auf die andere clicken, aber ich würde dies gern mit einem machen. gruß abi |
Re: CheckBox anklicken
Hai abi,
warum nimmst Du denn für diesen Fall keine TRadioGroup? |
Re: CheckBox anklicken
Hallo Sharky
ja auf die bin ich auch schon gekommen. Kannst du mir dann noch mal kurz sagen warum ich bei der RadioBox keine CheckBoxen nehmen kann. Denn wenn ich diese nehme ist es des gleiche als wenn ich eine Group Box nehme. Dann fällt mir noch was ein, kann ich das symbol von meinem RadioButton ändern. Danke abi |
Re: CheckBox anklicken
Zitat:
Also z.B. aufsteigend sortiert nach Abteilung und innerhalb der Abteilung aufsteigend sortiert nach Arbeiter. |
Re: CheckBox anklicken
Zitat:
[Nachtrag]: Hast Du dir schon einmal überlegt deien Datensätze in einem ListView anzuzeigen? Dann hast Du nicht die Probleme immer wieder die Daten aus der Datenbank zu holen nur weil sie in einer anderen Reihenfolge gezeigt werden sollen. |
Re: CheckBox anklicken
Sharky hat recht. Bei einer Auswahl genau eines Elements sollte man eine RadioGroup nehmen.
Hier aber der Code für die CheckBox-Lösung;
Delphi-Quellcode:
Diese Methode allen CheckBoxen zuweisen
procedure TForm1.CheckBoxClick(Sender: TObject);
var Checked: Boolean; begin (Sender as TCheckBox).OnClick := nil; Checked := (Sender as TCheckBox).Checked; CheckBox1.Checked := False; CheckBox2.Checked := False; CheckBox3.Checked := False; (Sender as TCheckBox).Checked := Checked; (Sender as TCheckBox).OnClick := CheckBoxClick; end; |
Re: CheckBox anklicken
Hallo ihr beiden
danke erst mal. Shmia bei mir kann man nur Absteigend sotierend mehr geht nicht. Ich finde auch das des reicht. Sharky ich würde mal sagen, wenns extra dafür ist. Dann sollte ich des auch so machen. Dann werde ich die RadioBox nehmen. Aber ich würde des trotzdem gerne das Symbol ändern. abi |
Re: CheckBox anklicken
Hallo Sharky
auf die Idee mit dem Listview bin ich noch nicht gekommen. Da ich ja höchsten 500 Daten haben, glaube ich nicht das dies so schlimm ist. Und da dies nur neben Sache ist. Da ich dies zu meiner Suchfunktion dazu gemacht habe. Mein größtes Problem ist derzeit das ich noch keine Daten in meiner Datenbank drin habe und dies wahrscheinlich auch nicht in der nächsten Zeit machen werde. Kann ich leider nicht testen ob ich ein laufzeit Problem oder länge Warte zeiten habe. Aber ich werde es mir merken und vielleicht mache ich es noch. abi |
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:31 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz