Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
var buttonSelected : Integer; begin // Show a confirmation dialog buttonSelected := MessageDlg('Confirmation',mtError, mbOKCancel, 0);
// Show the button type selected if buttonSelected = mrOK then ShowMessage('OK pressed'); if buttonSelected = mrCancel then ShowMessage('Cancel pressed'); end;
begin if PrintDialog1.execute then begin RichEdit1.Print('Title på dokument'); end; end; procedure TForm1.AfslutClick(Sender: TObject); begin buttonSelected := MessageDlg('Er du sikker på, du vil afslutte?',mtWarning, [mbYes,mbNo], 0); //Viser vinduet, der spørger, om man er sikker på, man vil sfslutte
if buttonSelected = mrYes then application.terminate; // Handling hvis der trykkes "Yes" end;
Kan man ikke få det på dansk?? Med "Davarsel" fram for "Warning" mm? Eller hva.?
function IntToStr(I: Integer): ShortString; begin Str(I, Result); end;
function GetAveCharSize(Canvas: TCanvas): TPoint; var I: Integer; Buffer: array[0..51] of Char; begin for I := 0 to 25 do Buffer[I] := Chr(I + Ord('A')); for I := 0 to 25 do Buffer[I + 26] := Chr(I + Ord('a')); GetTextExtentPoint(Canvas.Handle, Buffer, 52, TSize(Result)); Result.X := Result.X div 52; end;
function Max(A, B: Integer): Integer; begin if A > B then Result := A else Result := B; end;
Hvis der er nogen der kan komme med forbedringer til den skal de være meget velkomne da jeg ikke selv synes den er helt perfekt, blot god meget af vejen! :)
Det er ikke særligt svært at lave en MessageDlg selv. Lav en form, tilknyt en TImages som fyldes med billeder fra en "rigtig" MessageDlg. Lav en funktion UDENFOR klassen der hedder MessageDlgDK, med samme parametre som en alm MessageDlg, på funktionen kreeres din egen MessageDlg med FrmMessageDlgDK := TFrmMessageDlg.Create(application)
Husk at free den senere..
En helt anden ting der heller ikke er særlig svært: Tilføj et sprog til dit projekt, der vil da oprettes en fil der hedder Projekt1.dan (hvis du har tilføjet dansk til projektet projekt1). Kører programmet på en dansk Windows og denne fil ligger i samme direktorie som exe-filen vises alt på dansk (du skal selv oversætte i Delphi-miljøet), køres der på et andet sprog windows vises det på engelsk. Se demoerne for sprog understøttelse, det er nemt nok
hov.. kom til at fumle lidt i mit sidste indlæg.. jeg har brugt koden:
begin buttonSelected := MessageDlg('Er du sikker på, du vil afslutte?',mtWarning, [mbYes,mbNo], 0); //Viser vinduet, der spørger, om man er sikker på, man vil sfslutte
if buttonSelected = mrYes then application.terminate; // Handling hvis der trykkes "Yes" end;
Kan man ikke knytte denne kommando til et billede på en eller anden måde i stedet?
Jeg ved ikke hvad du mener "knytte denne kommando til et billede på en eller anden måde i stedet"... Vil du vise et billede når man trykker yes, eller hvad er probelemet?
ok nice :) har afleveret projekt nu, men kan måske bruge det næste gang ;)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.