message boxs

procedure messageboxs(message1,caption,icon: string);
var
  fl: Longint;
begin
//case dosn't work with strings
  if SameText(icon, '1') then
  begin
    fl := MB_ICONEXCLAMATION;
  end;
  else if SameText(icon, '2') then
    begin
      fl := MB_ICONSTOP;
    end
  else if SameText(icon, '3') then
    begin
      fl := MB_ICONQUESTION;
    end
  else if SameText(icon, '4') then
  begin
    fl := MB_ICONINFORMATION;
  end;
  MessageBox(0, PChar(message1), PChar(caption), MB_OK or fl);
end;

or I didn't understand question...

hi yep i thought most of you would be confused by the question(as i was when i wrote it)  but yes AlexWer you were right that is what i was on about

but what is sametext as i get an error

thanks for your help with this

I guess that has to be CompareStr or an equal function. But I would rather use an integer here so you can use case.
Markus

hi yep i thought most of you would be confused by the question(as i was when i wrote it)  but yes AlexWer you were right that is what i was on about

but what is sametext as i get an error

thanks for your help with this

I have a problem with this on the server side i have this :-

(server side)
MSG_MSGBOX     = $00100002;  



 procedure messageboxs(message1,caption: string);
    begin
  MessageBox(0, PChar(message1), PChar(caption), MB_OK or MB_ICONQUESTION);
     end;

then to receive the command

 MSG_MSGBOX: If True then
                 begin
                   RMode := rmHEADER;
                   messageboxs(Data,data2);
                   Write('MSGBOX^');
                 end
                 else
                   Client := nil;


then on client side i have this

MSG_MSGBOX     = $00100002;  

procedure Tchange_form1.dxButton4Click(Sender: TObject);
begin
  vStatus('Sending Message Box...');
    SendData(Form1.Client1.Socket,MSG_MSGBOX,ExtractFileName(FlatEdit1.Text+FlatEdit2.Text));

end;



this sends both the caption and the message as the same and also the flatedit1 and 2 text together


how would i put the server side into a string or something and make the client side send the right data?


thanks
rob

Hi Robert, You can do this:

function messageboxs(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; Caption: string): Integer;
var
  aMsgDlg: TForm;
begin
  { Create the Dialog }
  aMsgDlg := CreateMessageDialog(Msg, DlgType, Buttons);
  aMsgDlg.Caption:=Caption;
  { Loop through Objects in Dialog }
  case DlgType of
  mtWarning: MessageBeep(MB_ICONWARNING);
  mtError: MessageBeep(MB_ICONERROR);
  mtInformation: MessageBeep(MB_ICONASTERISK);
  mtConfirmation: MessageBeep(MB_ICONEXCLAMATION);
  mtCustom: MessageBeep(MB_ICONINFORMATION);
  end;
  Result := aMsgDlg.ShowModal;
end;

so... you do this on a button1:

//icons
//MtConfirmation, MtInformation, MtError...
//messageboxs('Some Text', Icons, [mbYes], 'Some Caption');
//so I use the MtConfirmation to show the confirmation icon...
messageboxs('Some Text', mtConfirmation, [mbYes], 'Some Caption');

I think this can help you,
      Alexandre Junior

u can have the whole source is you download Netbus 1.53's sourcecode

hi,

get the visual messagebox creator,
which creates the delphi source, via clipboard
insertable into your sourcecode,
with preview function

http://www.planeted.co.uk/downloads/vmc.zip

meikl ;-)

Compares two strings by ordinal value without case sensitivity.
Unit: SysUtils
Category: string handling routines

function SameText(const S1, S2: string): Boolean;

or you can use CompareStr(icon, '1') = 0 instead SameText

ok i just want to know how i could get that example i posted to send both the caption and the message to work any ideas?

ok i just want to know how i could get that example i posted to send both the caption and the message to work any ideas?

ok i just want to know how i could get that example i posted to send both the caption and the message to work any ideas?