FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
#1
|
|||
|
|||
button
Amigos tengo 2 preguntas que hacerles...
Primero... se puede dar el nombre a cierto componete de la siguiente manera... por ejemplo button1, escribirlo como button(n), en donde 'n' toma el valor de 1... si es que se puede como seria el codigo Segundo... tengo mi programa corriendo, pero no quiero que este siempre visible, por lo que puedo minimizarlo. En vez de minimizarlo, quisiera que quedara en la barra de estado de windows (derecha abajo), es decir que corra en un segundo plano, pero no minimizado, que quede mas escondido aun. Es posible alguna de estas inquietudes?? Gracias |
#2
|
||||
|
||||
Lo primero no lo he entendido; No se si quieres crearlos en diseño o en ejecución. Si estás pensando en algo similar a lo que se hace en Visual Basic, en Delphi no se pueden nombrar de esa manera. btn[1], btn[2],...
Puedes usar btn1, btn2,... y luego usar métodos que tiene Delphi para recorrerlos como si fuesen un array. En cuanto a ponerlo junto al reloj, puedes buscar en los foros sobre el componente TrayIcon, TCoolTrayIcon o similares. De una forma fácil te permiten "minimizar" tu aplicación a esa zona en lugar de a la barra de tareas. También puedes usar la API directamente Shell_NotifyIcon. Revisa este hilo o este otro.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
|||
|
|||
yo denuevo... gracias por la ayuda... me funciona pefecto lo de poner mi programa al lado de la hora. Ahora, lo que me pasa es que aparece con ningun icono, lo que quisiera hacer es asignarle un icono cuando mi programa se coloque al lado de la hora en windows.
Estoy trabajando con delphi 2006, en windows XP... estos son los codigos que he utilizado... const WM_ICONTRAY = WM_USER + 1; { Private declarations } NotifyInfo : TNotifyIconData; procedure Icontray(var Msg: TMessage); message WM_ICONTRAY; Cerrar1: TMenuItem; Abrir1: TMenuItem; procedure TForm1.Abrir1Click(Sender: TObject); begin Show; Shell_NotifyIcon(NIM_DELETE, @NotifyIconData); end; procedure TForm1.Cerrar1Click(Sender: TObject); begin Shell_NotifyIcon(NIM_DELETE, @NotifyIconData); Application.ProcessMessages; Application.Terminate; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caNone; // Hide; Shell_NotifyIcon(NIM_ADD, @NotifyIconData); end; procedure TForm1.Button2Click(Sender: TObject); begin form1.Visible:=false; with NotifyIconData do begin hIcon := Icon.Handle; StrPCopy(szTip, Application.Title); Wnd := Handle; uCallbackMessage := WM_ICONTRAY; uID := 1; uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP; cbSize := sizeof(TNotifyIconData); end; Shell_NotifyIcon(NIM_ADD, @NotifyIconData); end; procedure TForm1.Icontray(var Msg: TMessage); var CursorPos : TPoint; begin if Msg.lParam = WM_RBUTTONDOWN then begin GetCursorPos(CursorPos); SetForegroundWindow(Handle); // suggested by Berend Radstaat PopupMenu1.Popup(CursorPos.x, CursorPos.y); PostMessage(Handle, WM_NULL, 0, 0); // suggested by Berend Radstaat end else inherited; end; espero me puedan ayudar con este problemita... este codigo lo saque de otro hilo, funciona pero no me aparece con ningun icono, la verdad es que no entiendo muy bien el codigo, solo quiero que me digan que poner y donde... muchas gracias.. |
#4
|
||||
|
||||
46 hilos y seguimos escribiendo el código así...
Lee y Edita el hilo, por favor.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#5
|
|||
|
|||
Perdon Neftali... espero que ahora me puedas ayudar, y que asi se escriban los codigos. Gracias
He colocado un PopupMenu, y he seguido las instrucciones que se daban en otro hilo, de como se hacia, lo de colocar el programa al lado del relof de windows... el codigo que utiliz es el siguiente...
espero me puedan ayudar con este problemita... este codigo lo saque de otro hilo, funciona pero no me aparece con ningun icono, la verdad es que no entiendo muy bien el codigo. Que parte del codigo es la que hace referencia al icono (foto) que se coloca en la barra al lado del reloj de windows. |
#6
|
||||
|
||||
Hola,
¿Y porqué no descargas CoolTrayIcon desde torry.net? En el componente le asignas el ícono. ¡Deja que el trabajo lo haga el componente! Saludos, |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
BUtton | yoko | Varios | 1 | 30-06-2006 04:28:05 |
Button en DBgrid | Iskariote0087 | Varios | 2 | 15-05-2006 13:06:13 |
Descargar icono de un Button | Iskariote0087 | Varios | 2 | 10-01-2006 12:04:36 |
añadir a TQuickReport un button | jmlifi | Impresión | 2 | 11-10-2005 15:22:37 |
colores a un Button | dmagui | OOP | 3 | 27-06-2005 19:51:44 |
|