Hi,
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| type
TChoiceResults = (chCaseSensitive, chReplaceAll, chConfirmChanges);
function ShowChoiceBox: Set of TChoiceResults;
var
aForm: TChoiceBox;
begin
result := [];
aForm := TChoiceBox.Create;
try
aForm.ShowModal;
if aForm.CheckBox1.Checked then
result := result + [chCaseSensitive];
finally
aForm.Free;
end;
end; |
Kannst ja generell mal überlegen, ob du nicht 'ne CheckListBox(heißt das glaub' ich) nimmst und dann als Parameter 'nen String, in dem die Beschriftungen stehen(mit bestimmtem Zeichen als Trennzeichen).
Als Rückgabewert dann ein Set of 0..255, welche Checkboxen gecheckt sind.
Delphi-Quelltext
1:
| Case ShowChoiceBox('Case Sensitive!Replace all!Confirm Changes', '!') of |
PS: Na toll: Will ich gerad' auf abschicken drücken und dann so 'was
ist ja noch schöner als "E: Mist, zu spät!"^^
E: Aso, das mit dem Case of geht dann nicht mehr, der Rückgabewert war zuerst 'n Integer. Musst du dann in Variable Speichern und einzeln mit "if .. in ChoiceResults then .." prüfen.
mfG,
Ist vll. etwas unglücklich formuliert.
Narses