Vil have vist noget i label

Har fået det til at virke ..

Men kan man ikke gøre sådan man ikke behøver at klikke på label7 men at den bare viser det i label 7 :)

Nu er det ganske vist længe siden jeg har lavet noget i Delphi, men selvfølgelig kan du det.
Den funktion du har erklæret har du jo netop lagt på eventet label7_click. Du kan ivirkeligheden lægge funktionen på et hvilken som helst event.
Det skal også være muligt at få udført funktionen i forbindelse med selve opstarten af programmet.
Du skriver jo allerede i dit hovedprogram label7.caption:= osv.
Den linie ville jeg da debugge hvis jeg var dig.
Lad mig høre fra dig, hvis du har behov for mere konkret hjælp.
Hvilken Delphi version bruger du?
Hvis jeg låner koden og får helt konkret at vide hvad du vil, kan jeg godt rette det til for dig.
mvh
Poul-Erik
PE Programmering PC

du ligger bare din kode i onShow på din form

procedure TForm2.FormShow(Sender: TObject);
function GetCurrentUserName : string;
const
  cnMaxUserNameLen = 254;
var
  sUserName: string;
  dwUserNameLen: DWORD;
begin
  dwUserNameLen := cnMaxUserNameLen - 1;
  SetLength(sUserName, cnMaxUserNameLen);
  GetUserName(PChar(sUserName), dwUserNameLen);
  SetLength(sUserName, dwUserNameLen);
  Result := sUserName;
end;begin
  Label7.Caption:=GetCurrentUserName;
end;

Du kan vise ændringen ved at skrive følgende:

....
begin
  Label7.Caption:=GetCurrentUserName;
  label7.invalidate;
end;

Invalidate får windows til at "repainte" din label. Jeg bruger det tit hvis jeg har en tæller der løbende skal opdateres for at vise brugeren at der "sker" noget i programmet.

nu har man jo ikke ikke brug for at refreshe brugernavnet, eftersom det aldrig ændre sig