DLLin ikonu

[Jire]

merhaba.
dll im içinde bi tane messagebox var.
kendi programım içinde kullanıyorum ama delphinin ikonunu (dll içindeki msgbox) gösteriyor ve istediğin kadar açabiliyorsun.ayrıca programın exe ismini değiştirdiğimde bu olay düzeliyor dll programın ikonunu alıyor ama bunu yapmadan yapmak istiyorum.

showmodal şeklinde ikonunu göstermeyen bi msgbox nasıl yaparım?

şimdiden teşekkürler.

[CiTiZEN]

hocak Şöyle Bir Kod Var Dll Den Değilde Exe den açınca sadece caption gözüküyor umarım işinize yarar yaramazsa başka kodlarda eklemeye çalışırım.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
mesaj:Integer;
begin
mesaj:=Application.MessageBox('Silmek İstediğinizden Eminmisiniz','Sil',
MB_YesNo);
end;

[Nick_]

msgbox gosterecegıne form olusturup onu ıstedıgın bıcımde gostersen nasıl olur?

[CiTiZEN]

Nick Haklı aslında o da olabilir yenı aklıma geldı bi yontem daha scrollbox da gosterebilirsiniz zaten form özelliklerini taşıyabiliyo.

[Jire]

msgbox gosterecegıne form olusturup onu ıstedıgın bıcımde gostersen nasıl olur?

Benim kullandığım windows tarzı yanında MB_ICONINFORMATION var onun nasıl koyucam .

[ikutluay]

ds dialogs diye bir set var. torry.net te bunla ilgili bir sürü component var zaten

[conari]

Kendi mesaj dialoğunu oluşturabilirsin.

Kod Muharrem Bey'e aitti galiba, Değilse bile sahibini hatırlayamadım kusura bakmasın..

Kod: Tümünü seç

function MyMessageDlg(const Msg: string;
  DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons;
  Captions: array of string;
  DefButton: Integer): Integer;
// Uses: Dialogs, stdctrls //
var
  aMsgDlg      : TForm;
  i            : Integer;
  dlgButton    : TButton; 
  CaptionIndex : Integer; 
begin 
  aMsgDlg := CreateMessageDialog(Msg, DlgType, Buttons);
  aMsgDlg.FormStyle := fsStayOnTop; 
  captionIndex := 0; 

  for i := 0 to aMsgDlg.ComponentCount - 1 do
  begin 
    if (aMsgDlg.Components[i] is TButton) then 
    begin 
      dlgButton := TButton(aMsgDlg.Components[i]);
      if CaptionIndex > High(Captions) then Break;
      dlgButton.Caption := Captions[CaptionIndex]; 
      dlgButton.Default := dlgButton.ModalResult = DefButton; 
        if dlgButton.Default then
          aMsgDlg.ActiveControl := dlgButton;
      Inc(CaptionIndex); 
    end; 
  end;
  aMsgDlg.Caption :=   StringReplace(ExtractFileName(Application.Title),'.exe','',[]);
  Result := aMsgDlg.ShowModal;
end;

Kullanım

Kod: Tümünü seç

 if MyMessageDlg ('Gerçekten Kapatmak mı, Gizlemek mi İstiyorsunuz?', mtConfirmation,[mbYes, mbNo],['Kapat', 'Gizle'] ,mrNo ) =
     mrNo then  begin ......