[Delphi 6] Ist es möglich in Meldungsfenstern ein Bild anzuzeigen.

[kagi3624]

Hallo, mir wurde hier erklärt, wie man mit HookResourceString zur Laufzeit das Caption eines Meldungsfensterbuttons ändern kann. Geht es auch, dass man ein Bild in das Meldungsfenster einbauen kann? Wäre cool, wenn es ginge. Es soll kein großes Bild sein. Nur so in der Avatargröße vielleicht.

[himitsu]

MessageBoxIndirect


Aber ganz im Ernst, beschäftige dich lieber mal mit dem TaskDialog
https://docs.microsoft.com/en-us/win...trl-taskdialog
oder ein etwas neueres Delphi und dann TTaskDialog

[TurboMagic]

Gibt's einen bestimmten Grund warum es noch D6 sein muss?
Wenn's nicht ein kommerzielles Projekt ist wäre doch eine
Community Edition der 10.4.2 geeignet.

[kagi3624]

Hallo, danke für die Links, aber ich hab mir schon aus dem Internet was zusammengeklaut und es funktioniert für 32x32 Icons wunderbar.

Code:

function TForm1.MyMessageDlg(const ACaption: string; const Msg: string;
  DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): TModalResult;
var
  t: Integer;
  ADlgType: TMsgDlgType;
  MyIcon : TIcon;
begin
  MyIcon := TIcon.Create;
  try
    MyIcon.LoadFromFile('C:\path\to\my\favicon32.ico');
  except
    //ignore
  end;
  { Custom dialog has standard no TImage, so we'll change it to mtInformation, and paste our own Icon on it. }
  if DlgType = mtCustom then
    ADlgType := mtInformation
  else
    ADlgType := DlgType;
  with CreateMessageDialog(Msg, ADlgType, Buttons) do
  try
    { Title & Helpcontext }
    Caption := ACaption;
    HelpContext := HelpCtx;
    { Image }
    if DlgType = mtCustom then
      for t := 0 To ComponentCount -1 do
        if Components[t] is TImage then
           TImage(Components[t]).Picture.Icon := MyIcon;
    { Show }
    Result := ShowModal;
  finally
    Free;
  end;
end;

Und dann z.B. so benutzen

Code:

MyMessageDlg('CAPTION', 'This is a custom message!', mtCustom , [mbOk], 0);

Zitat:

Gibt's einen bestimmten Grund warum es noch D6 sein muss?

Aus dem gleichen Grund, aus dem so viele Java machen (müssen) .

[TurboMagic]

Zitat von kagi3624:

Zitat:

Gibt's einen bestimmten Grund warum es noch D6 sein muss?

Aus dem gleichen Grund, aus dem so viele Java machen (müssen) .

Du schreibst in Rätseln?
Ist das ein Projekt an dem nicht nur du arbeitest?
Oder hat der Auftraggeber/Arbeitgeber D6 vorgegeben?

[kagi3624]

Zitat von TurboMagic:

Oder hat der Auftraggeber/Arbeitgeber D6 vorgegeben?

das