Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

Crie uma lista suspensa em StringGride, digite Lookup in DBGride Encontre agências semelhantes


Кто нибудь делал?   (2001-12-14 08:12) [0]

Eu tentei criar um formulário com BorderStyle = bsNone e nele um ListBox, funciona, mas durante a sua aparição o título do formulário torna-se inativo.
Ao usar componentes, eles não podem ir além do formulário.
Talvez alguém já tenha superado isso.



Владислав   (2001-12-14 08:47) [1]

Posso experimentar o menu de contexto?



Кто нибудь делал?   (2001-12-14 09:04) [2]

Obrigado Vladislav.
Eu já pensei sobre isso: um incômodo com redesenho, eu preciso que pareça uma lista suspensa normal.
Talvez a janela pode ser definida que estilo, para que não desative o principal?



Владислав   (2001-12-14 10:42) [3]

Eu posso te dar um pequeno exemplo (às pressas). Talvez algo ajude.



Mark_a   (2001-12-15 11:16) [4]

O formulário deve ter StringGrid e ComboBox
Use o seguinte código:

procedimento TForm1.FormCreate (Sender: TObject);
começar
{A altura da caixa de combinação "não pode ser alterada, por isso, em vez da caixa de combinação" a
vamos mudar a altura da linha de grade "a!
StringGrid1.DefaultRowHeight: = ComboBox1.Height;
StringGrid1.Cells [3,0]: = "A lista está aqui";
{Ocultar combobox}
ComboBox1.Visible: = falso;
ComboBox1.Items.Add ("primeiro item");
ComboBox1.Items.Add ("segundo parágrafo");
end;

procedimento TForm1.ComboBox1Change (Sender: TObject);
começar
{Vamos transferir selecionados em valor de ComboBox para grade}
StringGrid1.Cells [StringGrid1.Col, StringGrid1.Row]: =
ComboBox1.Items [ComboBox1.ItemIndex];
ComboBox1.Visible: = falso;
StringGrid1.SetFocus;
end;

procedimento TForm1.StringGrid1SelectCell (Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
var
R: TRect;
começar
if ((ACol = 3) AND (AROW <> 0)) então
começar
{A largura e a posição da ComboBox devem corresponder
Célula StringGrid}
R: = StringGrid1.CellRect (ACol, ARow);
R.Left: = R.Left + StringGrid1.Left;
R. Direito: = R. Direito + StringGrid1.Left;
R.Top: = R.Top + StringGrid1.Top;
R.Bottom: = R.Bottom + StringGrid1.Top;
ComboBox1.Left: = R.Esquerdo + 1;
ComboBox1.Top: = R.Top + 1;
ComboBox1.Width: = (R. direito + 1) - R.Left;
ComboBox1.Height: = (R. Inferior + 1) - R.Top;
{Mostrar combobox}
ComboBox1.Visible: = True;
ComboBox1.SetFocus;
fim;
CanSelect: = verdadeiro;
end;



vlv   (2001-12-15 11:43) [5]

Na biblioteca RX há uma classe de algo como TPopupWindow ...



Страницы: 1 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima









Memória: 0.57 MB
Hora: 0.038 c
1-22188
Arte
2001-12-14 13:09
2002.01.08
Como ler um arquivo grande ???


3-21966
Z.G.
2001-12-03 12:42
2002.01.08
POR QUE TODAS AS MINHAS PERGUNTAS SÃO RESPONDIDAS Tenho que repetir-me Como pesquisar em um campo Tipo: escrito Tetos e eu preciso encontrar


6-22288
atmosférico
2001-10-09 23:49
2002.01.08
WinGate


1-22217
Greenrul
2001-12-16 02:13
2002.01.08
TreeView - um par de perguntas


14-22369
Victor Tsay
2001-11-08 09:11
2002.01.08
Como trocar blocos de texto no editor do Delphi?





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russa sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol