Zitat von
fwsp:
Zitat von
xZise:
Alles wunderbar, außer das es vielleicht nett wäre, wenn es sofort rot wird (OnChange), wenn es den Begriff nicht gibt?
das wird allerdings ein wenig schwierig, besonders da ja erst beim [enter] in den windows ordner gesucht wird.
Sehe ich nicht so, da du ja nur überprüfen musst, ob der Befehl so existiert.
Und das es rot ist, selbst wenn es ein Vorschlag gibt finde ich nicht so schlimm...
Aber erhlich gesagt ist es ja unsinnig
Falls es dich trotzdem interessiert:
So hätte ich es gemacht... Oder wenigstens so ähnlich
Delphi-Quellcode:
private
text : string;
setPreview : Boolean;
end;
procedure EditOnChange...
begin
if not setPreview then
begin
if text <> Edit.Text then
begin
text := Edit.Text;
if (FileExists(WinDir + '\' + text + '.exe')) and (FileExists(WinDir + '\System32\' + text + '.exe')) then
begin
Edit.Color := clWhite;
setPreview := true;
// Vorschau ggf. erstellen
setPreview := false;
end else
begin
Edit.Color := clRed;
end;
end;
end;
end;
Es gab übrigends eine
AV als ich auf "Neuen Eintrag" geklickt habe.
Aber da habe ich auch eine Idee
Und zwar nur 2 Edit Felder und die Buttons Ordner/Datei suchen sowie den Button Speichern und löschen.
Mehr brauch man nicht.
Wenn der Name existiert dann überschreibst du es, ansonsten erstelle einen neuen Eintrag.
Ich habe eine Frage: Wie sieht es mit Parametern aus?