Thema: Delphi Inputbox buttons

Einzelnen Beitrag anzeigen

C64-Flo

Registriert seit: 11. Nov 2003
91 Beiträge
 
#6

Re: Inputbox buttons

  Alt 22. Nov 2003, 16:40
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]
  Mit Zitat antworten Zitat