Delphi Ich werde noch verrückt mit ImageList und OnCreate .

Thema durchsuchen

Ansicht

Themen-Optionen

Ich werde noch verrückt mit ImageList und OnCreate .

Offene Frage von "Cosamia"

Ein Thema von Cosamia · begonnen am 4. Jul 2007 · letzter Beitrag vom 4. Jul 2007

Vorheriger Beitrag

Nächster Beitrag

Cosamia

Registriert seit: 27. Feb 2007
Ort: Emmendingen
221 Beiträge

Delphi 2007 Professional

Re: Ich werde noch verrückt mit ImageList und OnCreate .

4. Jul 2007, 10:35

macht leider auch kein Unterschied:

markieren

Delphi-Quellcode:

			procedure TForm1.FormShow(Sender: TObject);

begin

status := ServiceRunning(pchar('pc265'),'UmRdpService');

if (status) then label1.Caption := 'läuft';

if (status) then ImageList1.Draw(Paintbox1.Canvas,0,0,0);

if (status = False) then ImageList1.Draw(Paintbox1.Canvas,0,0,1);

if (status = False) then btstop.Enabled := false;

label2.Caption := BoolToStr (status);

end;