Não sei se é bem isso que você quer, mas vai aí um codigo que cria um edit
quando clicar com botão direito do mouse. Quando você teclar Enter no edit ou
clicar no form ele some.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;
type
TForm1 = class(TForm)
procedure FormContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
procedure FormClick(Sender: TObject);
private
{ Private declarations }
Edit : TEdit;
procedure FazQualquerCoisa(Sender: TObject; var Key: Char);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FazQualquerCoisa(Sender: TObject; var Key: Char);
begin
if (Key = #13) then
begin
ShowMessage('QualquerCoisa');
Edit.Visible := False;
end;
end;
procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
var Ponto : TPoint;
begin
if (Edit = nil) then
begin
Edit := TEdit.Create(Form1);
Edit.Parent := Form1;
Edit.OnKeyPress := FazQualquerCoisa;
end;
GetCursorPos(Ponto);
Edit.Top := Ponto.Y-100;
Edit.Left := Ponto.X-100;
Edit.Visible := True;
Edit.Clear;
Edit.SetFocus;
end;
procedure TForm1.FormClick(Sender: TObject);
begin
Edit.Visible := False;
end;
end.
É q eu queria fazer uma passagem de parâmetros para o programa sem
ter q abrir uma tela nova só para digitar estes parâmetros.
Seria mais fácil clicar lá no popup e já digitar o q preciso.
Sacou? Será q dá?
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
