MessageDlg mit eigenen Icons

[Helmi]

Hallo Jungs,

ich hab folgende Frage:

Wie kann man (falls es geht) in einem MessageDlg eigene Icons einbringen?
Ausser den Windows-Icons (Question, Information, Error, Warning, ...)

mfg
Helmi


:thuimb:

[nailor]

Guckst du in der OH bei "MessageDlg (Funktion)". Da ist ne lange Liste mit Überladungen, wobei manche die Angabe einer BitMap zulassen.

[Helmi]

oki danke

nur wie kann ich eine solche überladene Funktion laden?

[Meflin]

vielleicht hilft dir die dp suche, da gabs schon ein paar threads dazu!

[Sebastian Nintemann]

Zitat:

Zitat von Helmi

nur wie kann ich eine solche überladene Funktion laden?

"Überladen" bedeutet, dass mehrere Funktionen mit gleichem Namen existieren, die sich nur über die Art/Anzahl der Parameter unterscheiden. Du musst also nur die entsprechenden Parameter einsetzen (von der Version der Funktion, die du willst), der Compiler weiß dadurch, welche Funktion er nehmen soll.

Viele Grüße, Sebastian

[Helmi]

Zitat:

Überladen" bedeutet, dass mehrere Funktionen mit gleichem Namen existieren, die sich nur über die Art/Anzahl der Parameter unterscheiden. Du musst also nur die entsprechenden Parameter einsetzen (von der Version der Funktion, die du willst), der Compiler weiß dadurch, welche Funktion er nehmen soll.

das heisst also ich brauch die funktion nicht noch irgendwo zu laden, damit der Compiler weiss, dass ich diese spezielle überladende Funktion brauche?

[Meflin]

nein musst du nicht

[Helmi]

wenn ich aber eine andere funktion von MessageDlg haben will und einfach drauf los programmiere

dann erhalte ich vom Compiler folgende Fehlermeldung:

Zitat:

Zu viele Parameter

ich möchte folgende MessageDlg-Funktion benutzen:

Code:

function MessageDlg(const Msg: WideString; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; DefaultBtn: TMsgDlgBtn = mbNone; Bitmap: TBitmap = nil): Integer; overload;

[Sebastian Nintemann]

Hallo Helmi,
nein, brauchst du nicht (du musst für die MessageDlg Funktionen die Unit 'Dialogs' eingebunden haben, die ist aber standardmäßig sowieso dabei).

Hier ein Beispiel:

Delphi-Quellcode:

function Add(a:integer): integer; overload;  //1. Funktion
begin
  result := a + 5;
end;

function Add(a,b:integer): integer; overload;  //2. Funktion
begin
  result := a + b;
end;

{...}

var
  a,b: integer;
begin
  a := 10;
  b := 20;
  //entweder
  Caption := IntToStr(Add(a)); //Hier steht 15 in der Caption, weil Funktion 1 genommen wird
  //oder
  Caption := IntToStr(Add(a,b)); //Hier steht 30 in der Caption, weil Funktion 2 genommen wird
end;

Viele Grüße, Sebastian

[Sebastian Nintemann]

Etwas langsam.. ;)

Wie rufst Du die Funktion

Delphi-Quellcode:

function MessageDlg(const Msg: WideString; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; DefaultBtn: TMsgDlgBtn = mbNone; Bitmap: TBitmap = nil): Integer; overload;

Denn auf?