|
Registriert seit: 18. Mär 2003
Ort: Berlin
589 Beiträge
Delphi 8 Architect
|
Re: SystemUtilities V 1.0
29. Nov 2004, 21:33
Nett.
Vorschlag: Umrechnungen: fang das Enter im OnDown an und berechne dann von dem Wert des sendenden Edits ausgehend - so spart man sich das nervige leeren und neueingeben der Werte:
Delphi-Quellcode:
procedure TDeinTool.EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = 13 then begin
if Sender = EditDezimal then AufrufUmrechnungDezimal
else if Sender = EditRoemisch then AufrufUmrechnungRoemisch
... // usw.usf.
end;
end;
Gruß
Tim Leuschner
Programmierer = moderner Sysiphos: stets wenn er meint, den Stein seiner Dummheit auf den Berg des Wissens gewuchtet zu haben, erblickt er einen völlig neuen Aspekt und der Dummfels poltert mit Getöse zurück ins Tal der Unwissenheit...
|