MessageDlg mit eigenen Icons

[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