Simpel if, then, else - Evt. et link til en side med basal delphi

if btn1.Flat=True then begin
        ShellExecute(Handle, 'open', 'C:\Programmer\Gembird\Power Manager\pm2.exe', '-on -device3 -socket1', nil, SW_SHOWNORMAL);
        btn1.Flat:=False
end else if btn1.Flat=False then begin
        ShellExecute(Handle, 'open', 'C:\Programmer\Gembird\Power Manager\pm2.exe', '-off -device3 -socket1', nil, SW_SHOWNORMAL)
        btn1.Flat:=True
end;

begin end for at samle mere end 2 linier i en blok

de er 20 år siden jeg lærte Pascal

:-)

men der er en link samling her http://www.eksperten.dk/artikler/912

Nu ser det efterhånden således ud:

        if btn1.Font.Color=clGray then begin
        ShellExecute(Handle, 'open', 'C:\Programmer\Gembird\Power Manager\pm2.exe', '-on -device1 -socket2', nil, SW_SHOWNORMAL);
        btn1.Font.Color:=clBlack;
        btn1.Enabled:=False;
        Timer1.Enabled:=True;
        end
        else
        if btn1.Font.Color=clBlack then begin
        ShellExecute(Handle, 'open', 'C:\Programmer\Gembird\Power Manager\pm2.exe', '-off -device1 -socket2', nil, SW_SHOWNORMAL);
        btn1.Font.Color:=clGray;
        btn1.Enabled:=False;
        Timer1.Enabled:=True;
        end

Kan man ikke referere til btn1 relativt, således at samme sætninger kan bruges til btn2, osv... noget lignende PHP_SELF...

så er vi ud over mine Delphi kundskaber

Hvor ligger den kode - i en event på din btn1? I så fald skulle jeg mene du kan udnytte at der følger en parameter ved navn Sender med. Denne er et Object som du kan typecaste til en TButton for direkte at henvise til den knap der blev aktivere.

Dvs. du i stedet for

if btn1.Font.Color=clGray then begin

skriver

if TButton(Sender).Font.Color=clGray then begin

Efter dette, kan du i Property Inspector sætte de andre knapper til at bruge prøcist samme event som btn1. Resten klarer sig selv, så længe du husker at erstatte alle referencer.

Kan jeg så også gøre Timer dynamisk, så btn2 bruger Timer2?

Og hvad hedder en Timer, hvis jeg skal gøre samme trick med selv-reference?

Sender vil altid referere til den komponent der har modtaget event-kaldet - derfor vil den i en OnTimer altid referere til den Timer der går i gang.

Hvis du vil have en Timer per Button, bør du placere dine Buttons i et array, og sætte Tag-property'en for dine Timers til det index der indeholder den knap du skal bruge.

Point?

mig eller pidgeot eller deler ?

I er vist lige gode om det!

saa regner jeg med at vi begge skal ligge svar

her er fra mig

Og her er der fra mig :)