Hola:
Si que es posible, alguien de este foro hace algún tiempo me pasó esto y funciona.
Código Delphi
[-]
private
MsgTitle: String; MsgX, MsgY: Integer; procedure WMActivate(var Message: TWMActivate); message WM_ACTIVATE;
public
end;
procedure TFGrupos.WMActivate(var Message: TWMActivate);
var
Buffer: array[Byte] of Char;
begin
inherited;
if Message.Active = WA_INACTIVE then
begin
GetWindowText(Message.ActiveWindow, Buffer, SizeOf(Buffer));
if (Buffer <> '') and (Buffer = MsgTitle) then
SetWindowPos(Message.ActiveWindow,0,MsgX,MsgY,0,0,SWP_NOSIZE or SWP_NOZORDER);
end;
end;
MsgTitle := 'Grupos';
MsgX := 450;
MsgY := 435;
if Application.MessageBox('¿Borrar este grupo?',PChar(MsgTitle),mb_OkCancel+mb_IconQuestion)= IdOk then
begin
end;
Un saludo.