also hab momentan folgendes problem.
naja am besten erzaehl ich euch was ihc machen will und was ich probiert habe zu schreiben.
also als erstes setzt ich einen bestimmten button auf enabled=False (hab ich schon eingestellt)(nin diesem fall button2).
nun will ich das wenn ein bestimmtes fenster gefunden wird das der button gleich Enabled='True' ist.
hab des bei Activate eingestellt, weis aba nicht ob des dann fuer die ganze zeit gilt, wenn nich wie soll ich das machen? Also sodass das fenster auch noch gefunden werden kann nachdem ich das programm gestartet hab.
also kurz und knap:
als ersten Programm starten.
danach soll es nach einem bestimmten fenster suchen.
wenn des gefunden ist istgleich Button2.Enabled='True'.
habs schon mit folgendem versucht hat aba net geklappt.(bei einem gabs gleich eror wenn ich program starte, dann muss ich programm reset machen).
Delphi-Quellcode:
procedure TForm1.FormActivate(Sender: TObject);
var Window: Hwnd;
begin
Window:=FindWindow(NIL,'Fenster');
If Window then
Button2.Enabled='True'
else
free;
end;
da kommen dann folgende Errors:
[Error] Programm.pas(132): Type of expression must be BOOLEAN
[Error] Programm.pas(133): ':=' expected but '=' found
[Error] Programm.pas(134): Incompatible types: 'Boolean' and 'String'
[Fatal Error] Project.dpr(8): Could not compile used
unit 'Programm.pas'
dann habs ichs ma so versucht:
Delphi-Quellcode:
procedure TForm1.FormActivate(Sender: TObject);
var Window: Hwnd;
begin
Window:=FindWindow(NIL,'Fenster');
If StrToBool('Window') then // hier war [Error] Programm.pas(132): Type of expression must be BOOLEAN
Button2.Enabled:='True' // hier war [Error] Programm.pas(133): ':=' expected but '=' found
else
free;
end;
danach kommen noch die
[Error] Programm.pas(134): Incompatible types: 'Boolean' and 'String'
[Fatal Error] Project.dpr(8): Could not compile used
unit 'Programm.pas'
habs dann nochma versucht:
Delphi-Quellcode:
procedure TForm1.FormActivate(Sender: TObject);
var Window: Hwnd;
begin
Window:=FindWindow(NIL,'Fenster');
If StrToBool('Window') then
Button2.Enabled:=StrToBool('True') // hier StrToBool eingesetzt.
else
free;
end;
danach kommt nur noch ein Hint is ja irgendwie logisch weil ich des Window in ('') gesetzt habe.
[Hint] Programm.pas(131): Value assigned to 'Window' never used
allerdings kommt beim direkten start diese nachricht/error:
http://hts-forum.pytalhost.com/htsfiles/DelphiError.jpg
hoffe jemand kann mir helfen.
