|
|
 | Skift til dansk 'tale'
Fra : Kurt Guldbæk |
Dato : 09-02-05 17:51 |
|
Når jeg bruger showmessage og andre lignende funktioner står der 'Yes' eller
'No' i knapperne.
Hvordan får jeg det til at vise 'Ja' og 'Nej' i stedet for?
/Kurt
| |
 Harald (09-02-2005)
| Kommentar
Fra : Harald |
Dato : 09-02-05 19:52 |
|
"Kurt Guldbæk" <kurt_g@guldbaek.net> skrev i en meddelelse
news:420a3f82$0$29274$14726298@news.sunsite.dk...
> Når jeg bruger showmessage og andre lignende funktioner står der 'Yes'
> eller 'No' i knapperne.
> Hvordan får jeg det til at vise 'Ja' og 'Nej' i stedet for?
Sådan:
Application.MessageBox(PChar('Tryk J eller N'),'Spørgsmål',MB_YESNO or
MB_ICONQUESTION or MB_DEFBUTTON2);
Se win32 help for en masse andre flags.
/HK
| |
Kurt Guldbæk (09-02-2005)
| Kommentar
Fra : Kurt Guldbæk |
Dato : 09-02-05 22:38 |
|
"Harald" <nomail@noname.dk> skrev i en meddelelse
news:420a5bbd$0$33618$edfadb0f@dread16.news.tele.dk...
> "Kurt Guldbæk" <kurt_g@guldbaek.net> skrev i en meddelelse
> news:420a3f82$0$29274$14726298@news.sunsite.dk...
>> Når jeg bruger showmessage og andre lignende funktioner står der 'Yes'
>> eller 'No' i knapperne.
>> Hvordan får jeg det til at vise 'Ja' og 'Nej' i stedet for?
>
> Sådan:
>
> Application.MessageBox(PChar('Tryk J eller N'),'Spørgsmål',MB_YESNO or
> MB_ICONQUESTION or MB_DEFBUTTON2);
>
> Se win32 help for en masse andre flags.
>
> /HK
>
Tak, jeg vil se om jeg kan finde hjælpen!
/Kurt
| |
Kurt Guldbæk (09-02-2005)
| Kommentar
Fra : Kurt Guldbæk |
Dato : 09-02-05 23:10 |
|
"Harald" <nomail@noname.dk> skrev i en meddelelse
news:420a5bbd$0$33618$edfadb0f@dread16.news.tele.dk...
> "Kurt Guldbæk" <kurt_g@guldbaek.net> skrev i en meddelelse
> news:420a3f82$0$29274$14726298@news.sunsite.dk...
>> Når jeg bruger showmessage og andre lignende funktioner står der 'Yes'
>> eller 'No' i knapperne.
>> Hvordan får jeg det til at vise 'Ja' og 'Nej' i stedet for?
>
> Sådan:
>
> Application.MessageBox(PChar('Tryk J eller N'),'Spørgsmål',MB_YESNO or
> MB_ICONQUESTION or MB_DEFBUTTON2);
>
> Se win32 help for en masse andre flags.
>
> /HK
>
Det virker fint, men er der ikke en måde, så det bliver gjort een gang for
alle de steder man bruger funktionen?
/Kurt
| |
 Boris Jeltsin (10-02-2005)
| Kommentar
Fra : Boris Jeltsin |
Dato : 10-02-05 11:40 |
|
"Kurt Guldbæk" <kurt_g@guldbaek.net> skrev i en meddelelse
news:420a8a25$0$29272
>> Application.MessageBox(PChar('Tryk J eller N'),'Spørgsmål',MB_YESNO or
>> MB_ICONQUESTION or MB_DEFBUTTON2);
>>
> Det virker fint, men er der ikke en måde, så det bliver gjort een gang for
> alle de steder man bruger funktionen?
> /Kurt
>
Hej Kurt
du kan lave en funktion som vidersender din besked til MessageBox, så du
slipper for at angive alle parametre hver gang. Noget i den stil:
function MinJNMsg(s:string):boolean; // Ja/Nej message
begin
Application.MessageBox(PChar(s),"Spørgsmål",MB_YESNO or
MB_ICONQUESTION or MB_DEFBUTTON2);
end;
Den kan du kalde simpelt :
MinJNMsg('Tryk J eller N");
/mvh
| |
Kurt Guldbæk (10-02-2005)
| Kommentar
Fra : Kurt Guldbæk |
Dato : 10-02-05 16:03 |
|
"Boris Jeltsin" <nospam@yahoo.com> skrev i en meddelelse
news:420b39e9$0$13731$ba624c82@nntp03.dk.telia.net...
>
> "Kurt Guldbæk" <kurt_g@guldbaek.net> skrev i en meddelelse
> news:420a8a25$0$29272
>
>>> Application.MessageBox(PChar('Tryk J eller N'),'Spørgsmål',MB_YESNO or
>>> MB_ICONQUESTION or MB_DEFBUTTON2);
>>>
>
>> Det virker fint, men er der ikke en måde, så det bliver gjort een gang
>> for alle de steder man bruger funktionen?
>> /Kurt
>>
>
> Hej Kurt
>
> du kan lave en funktion som vidersender din besked til MessageBox, så du
> slipper for at angive alle parametre hver gang. Noget i den stil:
>
> function MinJNMsg(s:string):boolean; // Ja/Nej message
> begin
> Application.MessageBox(PChar(s),"Spørgsmål",MB_YESNO or
> MB_ICONQUESTION or MB_DEFBUTTON2);
> end;
>
>
> Den kan du kalde simpelt :
>
> MinJNMsg('Tryk J eller N");
>
> /mvh
>
Det lyder nemmere, så det gør jeg.
Tak.
/Kurt
| |
PØLLE (09-02-2005)
| Kommentar
Fra : PØLLE |
Dato : 09-02-05 20:43 |
|
Hej Kurt
| Hvordan får jeg det til at vise 'Ja' og 'Nej' i stedet for?
prøv og sætte denne streng ind i dit program og se hvad der sker;
if (Application.MessageBox(PCHAR('Der er ikke angivet, hverken "Brugernavn"
eller "Password".'#13#10+
'Dette er tilladt - men farligt'#13#10#10'Vil du stadig fortsætte
?'),'Systemsikkerhed', MB_ICONQUESTION +MB_YESNO +MB_DEFBUTTON2 )=IDNo) then
Exit;
PØLLE
| |
Kurt Guldbæk (09-02-2005)
| Kommentar
Fra : Kurt Guldbæk |
Dato : 09-02-05 22:36 |
|
"PØLLE" <jessie-peterSLET_DETTE@mail.dk> skrev i en meddelelse
news:420a67d5$0$48647$edfadb0f@dread15.news.tele.dk...
> Hej Kurt
> | Hvordan får jeg det til at vise 'Ja' og 'Nej' i stedet for?
>
> prøv og sætte denne streng ind i dit program og se hvad der sker;
>
> if (Application.MessageBox(PCHAR('Der er ikke angivet, hverken
> "Brugernavn"
> eller "Password".'#13#10+
> 'Dette er tilladt - men farligt'#13#10#10'Vil du stadig fortsætte
> ?'),'Systemsikkerhed', MB_ICONQUESTION +MB_YESNO +MB_DEFBUTTON2 )=IDNo)
> then
> Exit;
>
>
> PØLLE
Umiddelbart vil jeg være noget betænkelig ved det.
Hvad gør det?
/Kurt
| |
PØLLE (10-02-2005)
| Kommentar
Fra : PØLLE |
Dato : 10-02-05 19:20 |
|
Hej Kurt
Jeg kan se, at du har fået forklaring på det, jeg sendte.
PØLLE
| |
Carsten (14-02-2005)
| Kommentar
Fra : Carsten |
Dato : 14-02-05 18:00 |
|
Hej
Her er en unit som jeg har lavet der kan erstatte Borlands MessageDlg
function.
Mvh
Carsten
------------------------------------------------------------------------
unit CbMsg;
interface
Uses Forms,Windows;
type
TMsgDlgType = (mtWarning, mtError, mtInformation, mtConfirmation,
mtCustom);
TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore,
mbAll, mbNoToAll, mbYesToAll, mbHelp);
TMsgDlgButtons = set of TMsgDlgBtn;
const
mbYesNoCancel = [mbYes, mbNo, mbCancel];
mbOKCancel = [mbOK, mbCancel];
mbAbortRetryIgnore = [mbAbort, mbRetry, mbIgnore];
mrNone = 0;
mrOk = idOk;
mrCancel = idCancel;
mrAbort = idAbort;
mrRetry = idRetry;
mrIgnore = idIgnore;
mrYes = idYes;
mrNo = idNo;
mrAll = mrNo + 1;
mrNoToAll = mrAll + 1;
mrYesToAll = mrNoToAll + 1;
function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons:
TMsgDlgButtons; HelpCtx: Longint): Word;
implementation
function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons:
TMsgDlgButtons; HelpCtx: Longint): Word;
Var
wButtons:LongInt;
begin
wButtons:=0;
if mbYes in Buttons then
wButtons:=MB_YESNO;
if mbNo in Buttons then
wButtons:=MB_YESNO;
if mbOk in Buttons then
wButtons:=MB_Ok;
if mbCancel in Buttons then
wButtons:=MB_OkCancel;
if mbAbort in Buttons then
wButtons:=MB_ABORTRETRYIGNORE;
if (mbRetry in Buttons) and (mbIgnore in Buttons)then
wButtons:=MB_ABORTRETRYIGNORE;
if (mbRetry in Buttons) and (mbCancel in Buttons)then
wButtons:=MB_RETRYCANCEL;
if DlgType=mtWarning then
wButtons:=wButtons or MB_ICONWARNING;
if DlgType=mtError then
wButtons:=wButtons or MB_ICONERROR;
if DlgType=mtInformation then
wButtons:=wButtons or MB_ICONASTERISK;
if DlgType=mtConfirmation then
wButtons:=wButtons or MB_ICONQUESTION;
if HelpCtx>0 then
wButtons:=wButtons or MB_HELP;
wButtons:=wButtons or MB_APPLMODAL;
MessageDlg:=Application.MessageBox(pChar(msg),'',wButtons);
end;
end.
| |
|
|