Hallo,
zum meinem Vorhaben: ich würde gerne für mein Programm noch so eine Art Konsole basteln, mit der man halt bestimmte Funktionen im Programm ausführen kann. Nun soll aber beim Aufruf der Konsole (wahrscheinlich ein Memo) zu allererst die Benutzerdaten (Name, Passwort) abgefragt werden. Für die Programmanmeldung verwende ich Editfelder, wie im folgenden Quelltext ersichtlich:
Delphi-Quellcode:
procedure Tlogin.Button1Click(Sender: TObject);
var Ini: TIniFile;
begin
Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'us44.tyif');
try
if
(LabeledEdit1.Text=Ini.ReadString('User','Name','')) AND
(LabeledEdit2.Text=Ini.ReadString('Password','Password',''))
then begin
Form1.show;
login.hide;
Form18.showmodal;
end
else begin
Form10.showmodal;
LabeledEdit1.Text:='';
LabeledEdit2.Text:='';
end
finally
FreeAndNil(Ini);
end;
end;
Wie schaffe ich das jetzt aber beim Memo ohne Editfelder? Wie zum Beispiel im folgenden Bild:
Bild