Hogyan lehet lekerdezni az IP cimet Delphiben?
-
zero_cool51 #160 köszi, majdnem megvan.
igy néz ki:
procedure TUgralo.ugroLClick(Sender: TObject);
begin
n:=(n+1) mod 3;
if n=2 then n:=-n;
if n=0 then ugroL.Alignment:=taLeftJustify;
if n=1 then ugroL.Alignment:=taCenter;
if n=2 then ugroL.Alignment:=taRightJustify;
end;
de az a baj, hogy nem megy el jobbra. hanem középen megáll.
hi kihagyon az első if-et, akkor megy.
valamint hogy lehet azt megirni, hogy ha 2-nél van, akkor változtassa meg a captionjét? az if mögé írva and-el elválasztva, ugy nem megy. még egy if kell oda?