Gå til innhold

Anbefalte innlegg

Hei.

Jeg driver å tester ut litt delphi, jeg jobber egentlig med PHP, men tenkte "What the hell" :)

 

Så det jeg holder på med, er å spørre når noen avslutter programmet, om de virkelig ønsker dette...

jeg bruker mtConfirmation til dette.. problemet er at knappene på dialog boksen er på engelsk.. kan man endre dette?

Endret av MrNeeon
Lenke til kommentar
Videoannonse
Annonse

Hvis du bruker Windows sine bokser istedet for Delphi sine blir knappene på samme språk som Windows:

 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if MessageBox(Form1.Handle, 'Vil du avslutte?', 'Navn på programmet',
     MB_ICONQUESTION or MB_YESNOCANCEL) = IDYES then begin
        Action := caFree;
  end else begin
     Action := caNone;
  end;
end;

Lenke til kommentar
Hvis du bruker Windows sine bokser istedet for Delphi sine blir knappene på samme språk som Windows:

 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if MessageBox(Form1.Handle, 'Vil du avslutte?', 'Navn på programmet',
     MB_ICONQUESTION or MB_YESNOCANCEL) = IDYES then begin
        Action := caFree;
  end else begin
     Action := caNone;
  end;
end;

8187087[/snapback]

 

Takk!!!

Lenke til kommentar

Glemte i farta i komme med en advarsel når det gjelder å endre tekstene i Const.pas (og andre filer som hører til Delphi):

Ikke oversett direkte i originalfila, men ta en kopi av originalen og legg den i prosjektmappa der programmet ligger, og oversett tekstene der (eller i en mappe som inngår i Windows path). For øvrig kan du jo som de andre innleggene nevner, bruke norske tekster i windows egne bokser.

Lenke til kommentar

Opprett en konto eller logg inn for å kommentere

Du må være et medlem for å kunne skrive en kommentar

Opprett konto

Det er enkelt å melde seg inn for å starte en ny konto!

Start en konto

Logg inn

Har du allerede en konto? Logg inn her.

Logg inn nå
  • Hvem er aktive   0 medlemmer

    • Ingen innloggede medlemmer aktive
×
×
  • Opprett ny...