Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by jjep,
13. Feb 2008
Wow danke super genau das suchte ich.. :dancer:
Ich wollte eben ein Multiselect programmieren, bei dem man bei gedrückter Shift Taste mehrer Elemente anwählen kann.
Greez
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by jjep,
7. Feb 2008
procedure TForm1.Button1Click(Sender: TObject);
var state: TShiftState;
begin
if ssShift in state then Outputdebugstring('shift ist gedrückt')
else Outputdebugstring('shift ist nicht gedrückt');
end;
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by jjep,
7. Feb 2008
Moin moin
Ich möchte gern wissen ob die Shift-Taste gedrückt ist, aber es funktioniert nicht.
procedure TForm1.Button1Click(Sender: TObject);
var state: TShiftState;
begin
if ssShift in state then Outputdebugstring('shift ist gedrückt')
else Outputdebugstring('shift ist nicht gedrückt');