Inputbox buttons

[C64-Flo]

Danke !

Nur folgendes Problem bei der sache:

wenn ich das zb SO schreibe:

Delphi-Quellcode:

procedure TForm21.Button2Click(Sender: TObject);
var
eingabe:string;
begin
eingabe:=inputbox('gib was ein','sofort','defaulttext');
if (eingabe= '') then begin
                     label2.Caption:=('Eingabe abgebrochen.');
                     end

                 else begin
                     label2.Caption:=(eingabe+' Eingegeben');
                     end;
end;

....wird die eingabe aktion durchgeführt, auch WENN ´cancel´ gedrückt wird...
(in dem fall dann : ´defaulttext Eingegeben´ )

wie kann ich das lösen MIT einem defaulttext in der InputBox?

[edit=Admin]Delphi-Tags eingefügt. Bitte künftig selber machen. Danke. Mfg, Daniel[/edit]