Sag ich doch verständnis Problem.
Ich hatte nun im Kopp das die Variable nur für die Zeit wie der state vorhanden ist auch dessen Wert hat.
Danke für die Hinweise.
Möchte hier noch kurz meinen test Code posten fall jemand ein ähnliches Problem hat.
Wollte möglichst auf Timer verzichten deswegen diese Lösung.
Delphi-Quellcode:
implementation
{$R *.dfm}
var
go : boolean;
procedure TForm4.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
num : Integer;
begin
num := 1;
go := true;
if ssleft in shift then
begin
repeat
Inc(num);
Edit1.Text := IntToStr(num);
Application.ProcessMessages;
until not (go);
end;
end;
procedure TForm4.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if go then
begin
go := false;
end;
end;